From: Richard M. Stallman <rms@gnu.org>
Date: Mon, 23 May 1994 07:39:08 +0000 (+0000)
Subject: (popup-menu): Bind cmd with let.
X-Git-Tag: archive/raspbian/1%29.2+1-2+rpi1^2~5^2~91407
X-Git-Url: https://dgit.raspbian.org/%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:///%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:/?a=commitdiff_plain;h=f97eee516b814a964cd400aa28ad8a37513351c4;p=emacs.git

(popup-menu): Bind cmd with let.
---

diff --git a/lisp/emacs-lisp/lmenu.el b/lisp/emacs-lisp/lmenu.el
index 328cd318bfc..a8fa759d4d2 100644
--- a/lisp/emacs-lisp/lmenu.el
+++ b/lisp/emacs-lisp/lmenu.el
@@ -135,7 +135,7 @@ The syntax, more precisely:
 "
   (let ((menu (make-lucid-menu-keymap (car menu-desc) (cdr menu-desc)))
 	(pos (mouse-pixel-position))
-	answer)
+	answer cmd)
     (while menu
       (setq answer (x-popup-menu (list (list (nth 1 pos) (nthcdr 2 pos))
 				       (car pos))